VB֪ʶ

Visual BasicһдԵĽеĿӻԣʹôרҵ۵ûı̹С
ǵĿʹͨγ̵ѧϰʵķʹVisual BasicWindowsӦóһ㷽ص㣬WindowsӦóĻҪܺWindowsӦó򿪷Ļ˼룬ܹʵҪп򵥵WindowsӦó򣬲ΪһʹVisual BasicĿӻ߿WindowsӦó»
1 Visual Basic Ϳ
һ VBķչ
Visual BASICķչ
1991Microsoft״Ƴ˿ӻBASIC1C Visual Basic 1.0
1992MicrosoftƳVisual BASIC 2010汾Ľ
1993MicrosoftƳVisual BASIC 30ݿʹܺάͼƹܣ
1995ƳVisual Basic 40Ӧ32λϵͳҪܿ32λӦó
1997Ƴ˻win95Visual Basic 50˶Internetֺ֧Ϳ汾ѧϰ桢רҵ桢ҵ棩
1998ƳVisual BASIC 6.0һǿݿInternetķʡ

 VBְ汾
Visual Basicְ汾㲻ͬĿҪ
ѧϰ棺ʹԱɿ Windows  Windows NT(r)Ӧó򡣸ð汾еڲؼԼѡݰ󶨿ؼѧϰṩĵ Learn VB Now CD ͰȫĵMicrosoft Developer Network CD
רҵ棺ΪרҵԱṩһ׹걸Ŀߡð汾ѧϰȫԼActiveXؼInternet Information Server Application DesignerɵVisual Database Tools  DataEnvironmentActive Data ObjectsDynamic HTML Page DesignerרҵṩĵVisual Studio Professional FeaturesֲͰȫĵMicrosoft Developer Network CD
ҵ棺ʹרҵԱܹǿڷֲʽӦó򡣸ð汾רҵȫԼ Back Office ߣ SQL Server

 VBӦóҪص
1ĿӻƹߣVBӦóʱͨԼͽֻҪĴٱɡ
2¼̣ʹVBӦóʱȷӦóͨĸ¼굥ȣͬûнģ¼̡

 
˵


VB̹
Դ
岼ִ

༭
 ʵ
2 VB̻
һ VBļ
1 
VBĳƼ.VB.һпԲʵΪ.簴ť,ı,˵,ȵ.
2 
VB.ഴ.˶˵ľʵ.
3 
ָĸ,.
Եֵ:
1.ƽ׶:ͨԴö
2.н׶:.=ֵ
  
ȡԵֵ:=.
4 
ǶҪִеĶ
ʽ:.

5 ¼
ָϵͳָ.ܱʶӦĶ.
¼:Click,DbClick,MouseDdwn,MouseUp,MouseMove
6 ¼

 VB6.0ӦõĻ
1 ʽ
ͳӦó򿪷̿ԷΪԵĲ:--.
VBӦó򿪷ʹûԵĽ,ʽؿ.
2 ¼ӦóĹʽ
¼:
(1)Ӧó.װغʾ
(2)(ϵĿؼ)¼
(3)Ӧ¼дڴ,ִд
(4)Ӧóȴһ¼

 VB6.0Ӧó򿪷
1 Ӧó
2 
3 д
4 Ӧó
5 ,Ӧó
6 ɿִļ
3 VB6.0ƻ
һ 
          ַ    ռֽ            Чֵ
ֽ         BYTE                       0-255             10,157,220
           INTEGER    %               2                 -32768--32768
         LONG       &               4                 -2147483648--2147483648
       SINGLE     !               4                 -3.402823E383.402823E38
˫       DOUBLE     #               8                 -1.79769313486232D3081.79769313486232D308
         CURRENCY   @               8                 -922337203685477.5808922337203685477.5807
         DATE                       8                 100.1.1~9999.12.31
         BOOLEAN                    2                 TRUEFALSE
         OBJECT                     4                 κζ
䳤ַ     STRING     $               ַ,1ֽ/ַ
ַ     STRING*NUM $               NUM
ɱ       VARIANT                    
ת
һԶԲͬݵĴȽϸ.ͬ͵ֵͬһ,ܻ߼.VB,һЩͿԶת.,ַԶתΪֵ.,ͲԶת,,VB ṩ˺ɽеתض͵ת.
ע,Ŀ,ݵתֵЧ,ᷢ.磺ҪLong ͵תΪInteger͵,Long͵ݱInteger͵ЧΧ.
VBݴ洢ʽ
1 :ָйֵԸıЩ

1.һַĸ
2.ַĸ,,»,С,ոԼ! @  #  % &ȱ˵.
3.һַ˵(! @  #  % &)
4.ɴ255ַ
5.뱣

1.ʽ:ֻǱ.ֱʹ
Ȼʽʹ÷,ûһʱַʱ,йڲܼ,ִнͲܴﵽԤڵЧ,ִñϵͳ,Ѳ,رڴ͸ӵĳи.,Ҫʹһ֮ǰʽõıϰ.
2.ʾ:ʹõķʽΪʽģ鼶ʹãǿǿƱʽģебȻڳʹñԱⷢһЩڴĳ.
  ǿʾַʽ
  (1)-ѡ-༭-ѡ"Ҫ"-VB
  (2)бѡ(ͨ),Option Explicit
  
ʹDIM(Ҳ)
1.һ Dim StuName As String
2. Dim m As Integer,N As Integer
3.ͬ͵ı Dim a,b As Boolean,c As Date
ȫֱ:ڱ׼ģ,ʹùؼPublicGlobal,Աеһ,һģеһ̻ʹ.
              ȫֱʹùһҪرע⣬Ϊÿһģ鶼ܸıֵƲ׳ִ
2 :ָڳйУֵܸı.ڱдʱһЩ̶ֵΪ.óԼ󣬼򻯹̶ֵ޸Ḷ́ǿĿɶ.VB еĳΪ
ϵͳڲ
ΪӦóͿؼṩ
:VbRed(ɫ)  VbWhite(ɫ)
ų(Զ峣)
ûԶ峣ʹùؼCONST
[Public|Private] Const  [As ]=ʽ
PublicǹʹPublic ĳӦóʹãڱ׼ģʹ.ڴģģвPublic.
Private˽Privateģ鼶˳ֻ׼ģ鼶ʹãPrivateؼֲڹʱʹ
ȱʡΪPublic
:Const PI As Double=3.1415926
˵:
1.ConstıڳеĹǲܱ¸ֵ
2.ڳͬʱҪԳֵ
3.ĳָ
4.ʹһΪһʼʱעѭʱ
3 :Ƕ(VARIANTֵ)ֵļ
Ķ
Ķ﷨
Dim ([[±½ To] ±Ͻ])[As ]3
:Dim A(10) As Integer 'ʾΪA±½Ϊȱʡֵ0,±ϽΪ10,11Integer͵Ԫ,A(0)A(1)A(10)
   Dim B(3,4) As Integer 'ʾBһά Integer 
   Dim C(1 To 5,4 To 9,2 To 5) As Integer 'ʾCһʽָ½ά Integer 
   
Option Base
±ȱʡ½,ģ֮ǰʹ
﷨:Option Base{0|1}
̬
еԪظǹ̶,ռõĿռСҲǹ̶.
̬
ʱ鿪ʼʹǰ֪ҪʵҪ.Ȼ԰ĴС嵽㹻ʵӦҪַЧʺܵͣ˷ڴռ䣩.ʹö̬飬ͿڳʱʵҪȷĴС.
̬:
1.ʹDim
  Dim MyArray()As Integer
2.ʹReDim¶
  Dim MyArray(10,10)
  Ҫʹԭеݱ,ʹ:
  ReDim Preserve MyArray(10,20)
  ע⣺ʹReDim ʱ¶ʹԪصֵʧʹPreserveԱ.PreserveֻڸıһάĴСʱ.һά˵ݶᱣڶά飺ֻܸıһάĴСܱȫݣ.
  
LBoundUBound
LBound([,ָά]):ָάĿС±
UBound([,ָά]):ָάĿ±
   
4 ¼:ֳ"ûԶ",ɶɵĽṹ.¼ĳԱ.Աǲͬ͵ı(¼)
磬һѧѧšԱ䡢ɼַͥĳһѧ໥ϵ.numѧţnamesexԱ𣩡age䣩scoreɼaddrֱַΪļ򵥱Էӳ֮ϵ.Ӧ֯һһͬʱɸͲͬȻҲͬ.
¼͵Ķ
Type...End Type䶨(ע:ֻģʹ)
:
Type Student
     Num As Integer  'Ա As 
     Name As String*20
     sex As String*1
End Type
¼ͱͬһ,ʹ׺(% & # @ ! $)   

¼ͱ
Dim(Public,Static)ӵ͵ı.
:Dim Student1,Student2 As Student
Student1Student2ΪStudentͱǾStudent͵Ľṹ
ֵ
:Student1.Sex=""
   Student1.Name=""  
   
¼
һ¼һݣһѧѧšɼݣ.һѧݽͳ봦ȻӦʹü¼.¼ǰ鲻֮ͬÿԪضһ¼͵

 ͱʽ

иĲ
Ϊ:..ϵ.߼..
ʽ
ɶһĺϷʽ.
Ϊ:ʽ.ϵʽ.߼ʽ.

VB,Ҫ:
^       ָ
+       ӻȡֵ
-       ȡֵ
*       
/       
\       ()
Mod     

ַ.VB:
&        ǿʽ(Ϳܲͨ)ַ
+        ߵıʽлֵֵַĻ,Ƕֵ.   
ϵ
Ƚʽ,ΪTrue,FalseNull.
            True                False              Null
<              ʽ1<ʽ2      ʽ1>=ʽ2     ʽ1ʽ2=Null
<=             ʽ1<=ʽ2     ʽ1>ʽ2      ʽ1ʽ2=Null
>              ʽ1>ʽ2      ʽ1<=ʽ2     ʽ1ʽ2=Null
>=             ʽ1>=ʽ2     ʽ1<ʽ2      ʽ1ʽ2=Null
=              ʽ1=ʽ2      ʽ1<>ʽ2     ʽ1ʽ2=Null
<>             ʽ1<>ʽ2     ʽ1=ʽ2      ʽ1ʽ2=Null
߼
߼.
Not    ߼
And    ߼
Or     ߼
Xor    
Eqv    ߼
Imp    ̺

VBṩ:IsLike
Is:Ƚ,ؽΪTrueFalse
Like:һַʽһģʽƥ,ƥɹΪTure,ΪFalse.
ƥַƥ:
?             κεһַ
*             ַ
#             κһ(0-9)
[Charlist]    Charlistеκεһַ
[! Charlist]  Charlistеκεһַ
:MyCheck="F"Like"[!A-Z]" ؽΪFalse
ȼ
һʽҪʱÿһԤȷ˳м⣬˳˳ġʽжʱϸȼӦִСʽ4+3*2˷ȼӷȼߣ3*2Ϊ6Ȼ4+6Ϊ10ʱʽĽΪ10ʽеȼͬʱ㰴ҵ˳Сʽʱȼڵֵټֵ
˳ӸߵΪ:


Ƚ
߼
˷ͳͬʱڱʽʱÿ㶼Ǵҳֵ˳м㡣˷ͳͬʱڱʽʱÿҲǴҳֵ˳м㡣Ÿı˳ǿʽĳЩСڵ㡣ǣ֮ڣ˳򲻱䡣 

ֵ:[Let]=ʽ(һֵ)
         Set =ʽ(Զͱֵ)
ʹøֵʱҪע͵ƥ⡣ǰѱΪֵ͵ģΣ͵ȣôͲַܽʽֵñͬǽΪַ͵ģôͲֵܽ͵ֵñ
ע:ʹRemؼֻƲ(')
עڳмһЩעṩдڣдˣͳáĿΪĶ޸ṩϢ߳ĿɶԺͿά     
:һʱΪдĶ㣬ԽΪдβһոһз(»ߡ_)ʾڱδд꣬תһм
VBĴ봰Уе󳤶Ϊ1023ַǣΪ˱Ķһдĳò80ַͨÿβһַ_԰ѺܳĳֳɶУǣʹзֳַɶУ  
һеĶ:֮ð(:)
      
 ̵Ŀ
ָһִдʹ̿䣬̵Ǽ򵥵Ĵϵ˳ִеĵּ̡򵥡ĳɵĹޡʵʹУ˼򵥵˳ִнṹ⣬Ҫһ¶̡ӳһл֮ĵطִ
ת
ת,ʽΪ:
Goto     Gotoк
GotoʹÿԴﵽһĳ̿ƵĹܣڽṹһ㲻ᳫʹGoto䣬Ϊʹòʵֽṹ.
֧
ճУҪһӦľͬˡ֧ṹǸһִкֲVB ʵ
1.If......Then
2.If......Then......End If
3.If......Then......Else
4.If......Then......ElseIf
5.Select Case
жȻIfThenElseɣжϵĲ̫ʱдѣҿɶԲά£ø÷ѡSelect Case
ѭ
1.Do......Loop
2.For......Next
㲻֪ѭĴʱDoLoop䣬֪ѭĴʱForNext䡣ForNextѭһѭĴ
3.For Each......Next
For EachNextѭForNext ѭڣǰ߶ָϻ򼯺еÿԪظִĳΣʹüѭ̡ԣʹFor EachNext 䲻֪򼯺Ԫصĸ
4.While......Wend
ڼ򵥵ѭWhileWend䣬Ĺܱѭ򵥡ʽΪ Trueе䶼ִУһֱִе Wend 䡣Ȼٻص While 䣬һμʽʽΪ TrueظִСΪ True Wend ִ֮

 ׼
ʽ
ʽûнĺҪMsgboxInputBox 
ת
ҪԲͬ͵ıиֵʽеʱҪתеתɼת
ѧ
ѧضѧ
ںʱ亯
VBṩ˷ḻĹںʱĺЩ䲻غõǰʱڣԴںʱȡꡢ¡աʱ֡ԼԶʱڽиʽ
ַ
ַɶַĲʹȡַҺ滻ַַдСдȡVB6.0ַԭеַڶַĴ湦ܷǳȫ
Ŀ¼ļ
Ŀ¼ļļϵͳͨǿԲĿ¼ļ紴Ŀ¼ɾļͶдļ
4.1  㷨
1㷨ĸ
㷨ָüĳһķͲ衣
㷨ࣺ  ֵ㷨ڽһѧԽ⣬磺Խ̵ĸ󶨻֡΢̵ַȡ 

ֵ㷨ڶԷֵϢвҡȡ 
ֵ㷨ڽһѧԽ⣬磺Խ̵ĸ󶨻֡΢̵ַȡ
 ֵ㷨ڶԷֵϢвҡȡ
2㷨
1ȷԣָ㷨ÿ趼Ӧȷû塣
2ԣָ㷨ÿǼܹЧִСʵֵģɵõȷĽ
3ԣָһ㷨Ӧ޵ʱͲڿִϵġ
4ԣָһ㷨0ݡ
5ԣָһ㷨һ
3㷨
Ҫָǣ㷨ǷȷеЧʡռϵͳԴĶ١

4㷨
һ㳣̿ͼ㷨
5.㷨ṹ
ṹƷ涨㷨ֻṹ ˳ṹѡṹѭṹ
6㷨ʾ
1ŷ㷨ȻԼ 
2˳㷨 NַУضַ
4.2 ˳ṹ 
1. ֵ
ֵκγ䣬ֵ䶼ʱ˳ִеġֵʽΪ
 = ʽ
Ǽұ߱ʽֵȻ󸳸ߵıʽӦһ¡
2. ʹ˵
1ʽΪֵͶȲͬʱǿת߱ľȣ
2ʽֵַ߱ͣԶתֵٸֵʽзַմ
3κηַ͸ֵַͣԶתΪַͣ
4߼͸ֵֵʱTrueתΪ -1FalseתΪ0֮0תΪTrue0תΪFalse
5ֵߵıֻǱǳšʽ򱨴
6һ丳ֵУͬʱֵ
7ʽгֵ = ǵȺţϵͳ = ŵλãԶжǷΪֵţ
8עN=N+1 ۼгĸֵ䣬ʾNеֵ1ٸֵN
 
4.3   ѡṹ(Ʒ֧ṹ)

1. IF
(1)IfThen䣨֧ṹ F
ʽ
1)If <ʽ> Then 

End If 
2)If  <ʽ>  Then  <>
˵ʽһΪϵʽ߼ʽҲΪʽ0ΪTrue0ΪFalse
һ䣬2ʾֻһ䣬䣬ðŷָұһд
֪xyȽǵĴСʹ xy
һ  if  x<y  then 
 t=x
 x=y
 y=t
 end if
   if  x<y  then  t=x : x=y : y=t
ע⣺енʱڵʵ֡

(2)IfThenElse䣨˫֧ṹ 

ʽ                                     
1If  <ʽ>  Then 
 <1>
Else
<2>
 End If  
2 If  <ʽ>  Then  <1>  Else  <2> 

  x2 -5     x0  
3x +2    x=0 
(3)IfThenElseIf䣨֧ṹ 
ʽ                               
If  <ʽ1>  Then 
 <1> 
 ElseIf  <ʽ2>  Then 
 <2>
 
 [ Else n+1 ] 
End If  
ע  
1мִ֧һִ֧֧У
2ElseIf  дElse  If 
3֧жʽͬʱ㣬ִֻеһ֮ƥ 

֪strCдһַжϸַĸַַַ 

4IfǶ
IfǶָif elseְIf䡣ʽ
If  <ʽ1>  Then
If  <ʽ11>  Then 
  
 End If 
  
 End If 
ע⣺ 
1Ƕ׽ṹΪǿĿɶԣӦòʽд
2IfʽһдEnd IfԣifǶףEnd IfӽEmd Ifԡ
 ֪xyzȽǵĴСʹx>y>z.

2. Select Case䣨䣩

Select Case䣨䣩Ƕ֧һʽʽ 
Select Case  ʽ
 Case  ʽб1 
 1
 Case  ʽб2 
 2 
  
 [Case Else 
        n+1]
 End Select

˵1ʽֵͻַʽ
2ʽбI Ǳʽһöŷָöֵʽ1 to ʽ2Isϵʽ磺case  1 to 10     case  "a","w","e","t"   case  2,4,6,8,is>10
3еĶ֧ṹġ
֪ĳγ̵İٷƳɼmarkҪʾӦ弶Ƶ£
 
3.  
1if
ʽ IifʽΪTrueʱֵΪFalseʱֵXYдTmaxУ   Tmax=IifX>Y, X, Y
2Choose
ʽChooseʽѡб
ʽֵ1ѡбеĵ1ƣС1бʱ򷵻NULL
 nubΪ1 -4ֵɲͬ OP= Choosenub,¡
4.4 ѭṹ 
ѭָ¶ظִһ䡣VBṩ͵ѭ䣺
ѭѭ 
1. Forѭ䣨֪ѭļѭ
ʽ For ѭ = ֵTo ֵ [ Step ]

[Exit For] 

Next ѭ

˵: 1 ѭΪֵ
2һΪֵСֵΪֵֵȱʡΪ1
3һ䣬Ϊѭ壻
4Exit For ʾʱ˳ѭ壻 
ִNextһ䣻
ѭ=intֵ - ֵ/+1
5˳ѭѭֵ˳ʱֵ
6ѭڶѭɶãҪ丳ֵӰ
2. DoLoopѭ֪ѭѭ 
ڿѭδ֪ѭṹ﷨ʽ֣ 
ʽ1Do While  Loop
Do [ While | Until  ]

[ Exit Do ]

Loop
ʽ2Do  Loop While 
Do

[ Exit Do ]

Loop [ While | Until  ] 
˵
1ʽ1ΪжϺִУпһҲִУ
2ʽ2ΪִкжϣִһΣ
3ؼWhile ָΪʱִѭе䣬Untilպ෴
4ʡWhile|Until ־䣬ѭṹ DoLoopؼֹʱʾѭʱѭӦExit Do䣬Ϊѭ
5Exit Do ʾʱ˳ѭִLoopһ䡣
3. ѭǶ
ָѭְһѭṹѭǶ׶For ѭDoLoopѭá
4.5  
1Go To 
ʽ Go To  | к
˵1Go ToֻתƵͬһ̵ıŻкŴһַϵУַΪĸСд޹أκתƵıźðţ кһУ
2ǰBASICгô䣬ɶԲҪûãѡṹѭṹ档
2Exit
˳ĳƽṹִУVBExitжʽ磺 
Exit For ˳Forѭ 
Exit Do ˳Doѭ 
Exit Sub ˳ӹ̣
Exit Function˳
3End 
EndڽһִУԷκ¼УʽΪEnd 
VB End仹жʽڽһ̻飬磺
End If End With End Type End SelectEnd Sub End Function
4With
ǿԶĳִһϵе䣬ظָơһWithöͬĶǰҪš? 
ʽ£ With  

End With
With form1 
. Height=3000 
. Width=4000 
. BackColor=RGB(255,0,0)
End With
4.6 
1VBĵԹ
1Զ﷨
򿪹߲˵  ѡ  ѡ ༭ ҳ  Զ﷨ ϡ
2VBԹ
øùгжСڳüϵ㡢ӱԡ̸ٵȲ
2 VBģʽ
1ģʽ
ģʽ¿ԽгĽơáдȣʾơڴģʽ²гҲʹõԹߡ
2ģʽ
ִСС˵еġ򵥻ϵťF5ģʽģʽʾСڴ˽׶οԲ鿴룬޸ġҪ޸ģ뵥ϵġťصģʽҲѡжϡťжģʽ
3жģʽ
ʱˡжϡť򵱳дʱԽжģʽڴģʽ£еĳ򱻹𣬿Բ鿴롢޸Ĵ롢ݡ޸ĽťԼУҲԵťִֹͣС
3. 
1 ༭ʱ
ûڴ봰ڱ༭ʱVBԳ﷨飬ûꡢؼʱϵͳᵯԻʾڴ󴦼ʾԱû޸ġ
2ʱ
ָûˡťVBʼгǰȱִеĳʱĴ󣬴˴ûδ©ؼֵԭġִʱϵͳֹͣ룬ʾû޸ġ
3ʱ
ָVBڱͨдʱĴһִָ˷Ƿģ磺Ͳƥ䡢ͼһڵļȡϵͳᱨʾȺ
4߼
кòϣĽ˵߼磺ʹòȷĴ򲻶ԡѭʼֵȷִϵͳᱨҪûԼжϡ
4.Է
1/˳ж״̬
ж״ַ̬
1 ʱԶж
2 ûжϼǿƽж
3 ûڳԤ˶ϵ㣬ִеϵ㴦ж״̬
4 ڲõԷʽÿһִд󣬼ж״̬
2 õԴ
1) 
ǵʽʹ㡢õĴڡڳDebug.Print͵ڣҲڸôֱʹPrintʾֵ
2) ش
ôʾǰбִֵдһлһʱôڵݷı䣬ֻӳǰпõı
3) Ӵ
ôڿʾǰļӱʽڴ֮ǰƽ׶ΣõԲ˵ġӼ򡰿ټӡӼӱʽԼõļʱʾڼӴڣõļͽӦʾ
3ϵ
ڵԳʱͨöϵжϳУȻټرԺͱʽֵǷԤڵķΧڡ
жģʽ»ģʽʱûɾϵ㣬ڴ봰ѡɴĵطΪϵ㣬F9еϵ㴦ͣ£жģʽڴ֮ǰĵıԡʽֵԿ
5.1    ĸ
1
100ѧƽɼƽɼ
һʾɼҪ100磺mark1mary2mark100飬ֻһʾmark1 To100
2
飺ͬͱһļϡ
磺A1 To 100ʾһ100ԪصΪA顣
Ԫأ еı±ʾеĸԪء
ʾP1P2 
P1P2ʾԪеλãΪ±ꡱ
磺A32άAе3е2ϵǸԪء
ά  Ԫ±ĸһ±ʾһά飬±ʾά顣
VBһά顢ά顢60ά顣
±꣺ ±ʾ˳ţÿһΨһ˳ţ±겻ܳʱϡ½緶Χ±͵ĳʽһԪء
±ȡֵΧǣ½ To Ͻ ȱʡ½ʱϵͳĬȡ0
3
   ʹáϵͳڴзһ洢Ԫء
   ݣ͡άС
һ£иԪͱͬΪVariantʱɰͬ͵ݡ
   ̬飺ʱȷ˴С顣
   ̬飺 ʱûиСʡе±꣩ʹʱҪReDimָС
ʹö̬ŵǸûҪЧô洢ռ䣬ڳִеReDimʱŷ洢Ԫ̬ڳʱ洢Ԫ
5.3̬鼰
1. ̬Ľ
̬ķǣDimPrivatePublicΪյ飬ȻڹReDimָĴС﷨ǣ

ReDim  ±1[±2] [As  ]

±ǳҲȷֵıͿʡԣʡԣDimе䱣һ¡
 Dim D As Single 
 Sub Form_Load
  
 ReDim D46
 
 End Sub
2ע
1ڶ̬ReDimе±ǳҲȷֵı

2ڹпԶʹReDimıĴСҲɸıά

3ÿʹReDim䶼ʹԭеֵʧReDimPreserveеݣʹPreserveֻܸıһάĴСǰ漸άСܸı䡣
1. Ԫظֵ
1 ѭṹ
Dim  iA1 To 10 As Integer
For i=1 To 10 
A(i)=0 
Next i
2 Array
Dim  a As Variant, b As Variant, i%
a = Array (1,2,3,4,5)
b = Array ("abc","def","67")
For i=0 To Ubound (a)
Picture1.print a(i);"";
Next i
For i=0 To Ubound (b)
Picture1.print b(i);"";
Next i
2
(1) ͨInputBoxʺݡ
Dim  sB3,4 As singer
For i=0 To 3
For j=0 To 4
SB(i,j) =InputBox("" & i & j & "ֵ")
Next j
Next i
(2) ͨıؼ
Դ룬ıͺsplit()\join()дЧʸߡ

3ĸֵ
VB6.0пֱӽһֵֵһ飺
 Dim a(3) as integer, b() as integer
 A(0)=2: A(1)=5: A(2)=-2: A(3)=2
b=a
ڵVBУҪѭſʵ֣
 ReDim b(UBound(a))
 For I=0 to UBound(a)
 b(I)=a(I)
 Next i 
ע⣺1ֵߵͱһ£
   2ֵߵһ̬飬ֵʱϵͳԶ̬ReDimұͬС飻
  3ֵߵһС̶飬鸳ֵ
4
ForNextѭ
5Ԫغ±꼰Ԫ֮
Ԫؼ±꣬һһԪؼ±ΪȻ󽫸еԪһȽϣбľ滻ͬʱ滻±ꡣ
6иԪ
ҪǽһԪһڶ뵹ڶơ
5.5ؼ
1ؼĸ
ؼһͬ͵Ŀؼɵģǹһؼͬ顣ؼɸؼִеĲƵĳϣؼ鹲ͬ¼̡ؼͨţеIndexʶؼһ±0 磺Text1(0)Text1(1)Text1(2)Text1(3)
2ؼĽ
1ʱ

裺1ڴϻĳؼá 
2ѡиÿؼСơ͡ճϵͳʾǷؼ顱ѡǼɡճͿԴؼԪء 
3¼̵ı̡
2ʱӿؼ
1ڴϻĳؼøÿؼIndexֵΪ0ʾÿؼΪ顣
2ڱʱͨLoadɸԪأҲͨUnloadɾĳӵԪء
3ÿӵĿؼͨLeft TopԣȷڴϵλãVisibleΪTrue
ʹʾһƹ̣Ҫڰ׽棬ʱĳ񣬻ıɫʾš
5.6Զ
1. Զ͵Ķ 

ָɱ׼ɵһָͣҲΪ¼͡ 

1巽ʽ 

Type Զ 
 Ԫ[±꣩]  As  
  
 Ԫ[±꣩]  As  
End Type 

ԪʾԶеһԱ 

±꣨ѡʾ 

Ϊ׼

һѧϢԶͣ 
 Type studtype  
 No   As  Integer         ѧ 
 Name  As  String*10      
 Sex  As  String*2        Ա 
 Mark(1 TO 4) As Single    4ſγ̵ĳɼ 
 Total As Single            ܷ 
 End Type 

2ע 

1Զһڱ׼ģ飨.basж壬ĬPublic 

2ԶеԪؿַ,ӦǶַ 

3)  ɰԶ͵ı 

4) עԶͱĲǶԪɣǰߵԪشͬʡͬ͵ݣԪʾͬԪأߴŵͬʡͬ͵ݣ±ʾͬԪء 

2. Զͱʹ 

ʹʽ Dim   As  Զ 

磺 Dim  student As studtype,  mystud  As studtype 
ԶԪصıʾǣ . Ԫ  磺student.name  student.mark(4) 
Ϊ˼With  End With м򻯡  
 With  student 
 .no=99001 
 .name="" 
 .sex="" 
 .total=0 
for I=1 to 4 
 .mark(I)=int(rnd*101)     0 - 100֮ķ  
 .total=.total+.may(I) 
 next I 
 End With 
 Mystud=student       ͬԶͱֱӸֵ 

3.Զʹ 

ԶеÿԪضԶ͡

磺Զһѧɼɵѧ¼ͣ100ѧļ¼
 6 ñ׼ؼ
61 ıؼ 
1 ǩ 
ǩҪʾıϢֻ Captionû޸ģֱӱ༭ 
2ı 
ı 
Text
ıʾݡ磺 
Text1 .Text="Visual Basic" 
ı Text1ʾVisual Basic 
Locked 
ָıǷɱ༭ֵΪ False(Ĭֵ)ʱԱ༭ıеıֵΪTrueʱԹѡؼеıܱ༭ 
ı¼ͷ 
(1)Change 
ûıϢ򵱳 TextΪֵӶııTextʱChange¼кıÿһַͻһChange¼ 
(2)GotFocus 
(3)LostFocus 
(4)SetFocus 
SetFocusıнϳõķʽ£ 
[.]SetFocus 
62 ͼοؼ 
ͼƬͼ
ĬƷֱΪ PicturexImagex(xΪ123) 
Stretch 
ԵȡֵΪ TrueFalseֵΪFalseʱԶŴСͼеͼͼĴСӦ 
63 ťؼ 
Ժ¼
CaptionEnabledFontBoldFontItalicFontNameFontSizeFontUnderlineHeightLeftNameTopVisibleWidthԣ 
1Cancel 
һť CancelԱΪTrueʱEsc뵥ťͬ 
2Default 
һť DefaultԱΪTrueʱس͵ťЧͬ

3Style 
ȡֵ 
(1)0(ųvbButtonStandard)׼ʽ 
(2)1(ųvbButtonGraphical)ͼθʽ 
4Picture 
øԿԸťָһͼΡ StyleΪ1(ͼθʽ)PictureЧ 
5DownPicture 
õؼڰ״̬ʱڿؼʾͼΣڸѡ򡢵ѡťť 
6DisabledPicture 
öһͼεãťֹʹ (EnabledԱΪFalse)ʱڰťʾͼΡ 
ע⣬ť֧˫ (DblClick)¼ 
64ѡؼѡ͵ѡť 
ѡ͵ѡťԺ¼
 
ʹԣ 
(1)Value 
Valueʾѡѡť״̬ڵѡť˵ValueԿΪTrueFalseڸѡ˵ValueԿΪ012У 
0ʾûѡøѡ 
1ʾѡиøѡ 
2ʾøѡ򱻽ֹ(ɫ) 
65ѡؼбϿ 
б
1 
бֵ֧ı׼԰ EnabledFontBoldFontItalicFontNameFontUnderlineHeightLeftTopVisibleWidth⣬б򻹾ԣ 
(1)Columns 
(2)List 
гݡͨ±еֵ (±ֵ0ʼ)ʽΪ 
s$=[б.]List(±) 
(3)ListCount 
гббббд0ʼһΪListCount-1 
(4)ListIndex 
Եֵѡеıλá 
(5)MultiSelect 
0-None ÿֻѡһѡһȡǰһѡ 
1-Simple ͬʱѡѡ񲻻ȡǰѡոѡ 
2-Extended ѡָΧڵı 
(6)Selected 
ԼָıǷѡ 
б .Selected(ֵ)ֵ0ʼ 
ѡָıȡѡı 
б .Selected(ֵ)=True | False 
(7)SelCount 
(8)Sorted 
(10)Text 
ԵֵΪһѡеııֱ޸Textԡ 
2б¼ 
б ClickDblClick¼ʱñдClick¼̴룬ǵһťDblClick¼ʱȡTextԡ 
3б򷽷 
бʹ AddItemClearRemoveItemȷڼ޸бݡ 
(1)AddItem 
÷бвһıʽΪ 
б .AddItemĿַ[ֵ] 
÷ֻܵĿ 
(2)Clear 
÷беȫݣʽΪ 
б .Clear 
ִ ClearListCount±Ϊ0 
(3)RemoveItem 
÷ɾбָĿʽΪ 
б .RemoveItemֵ 
RemoveItemбɾԡֵΪַĿ÷ÿֻɾһĿ 
652Ͽ 
Ͽ (ComboBox)бıԶɵĿؼ 
1Ͽ 
(1)Style 
ϿһҪԣȡֵΪ 012Ͽ3ֲͬ͡ 
* StyleԱΪ0ʱϿΪʽϿ(Dropdown ComboBox) 
* StyleֵΪ1ϿΪϿ(Simple ComboBox)ɿıı༭һ׼бɡ 
* StyleֵΪ2ϿΪʽб(Dropdown ListBox) 
(2)Text 
ֵûѡĿıֱӴӱ༭ı 
2Ͽ¼ 
ϿӦ¼ Style 
3Ͽ򷽷 
AddItemClearRemoveItemҲϿ 
66    
1 
(1)Max 
ܱʾֵȡֵΧΪ -32 76832 767 
(2)Min 
ܱʾСֵȡֵΧͬ Max 
(3)LargeChange 
ǰĲλʱ ValueӻСֵ 
(4)SmallChange 
˵ļͷʱ ValueӻСֵ 
(5)Value 
ֵʾڹϵĵǰλáڳøֵѹƵӦλá 
67  ʱ  
Ҫ IntervalԺΪλȡֵΧΪ065 535ʱܳ65롣60 000Ϊ1ӣIntervalΪ1000ÿӷһʱ¼ϣÿn¼IntervalֵΪ1000n 
69Tab˳ 
691ý 
򵥵˵ǽûһнʱԽû롣ںжıĴУֻонıܽû롣 
õʱ GotFocus¼ʧȥʱLostFocus¼
 7Visual Basicƽṹ 
 
ṹƵĻƽṹ 3֣˳ṹѡṹѭṹ 
 
71ѡƽṹ
 
Ƚϼ򵥣ʽ£ 
 
IfThen then[Else else] 
 
ĹǣΪ TrueִСthenִ֡Сelse֡ 
 
IIf 
 
IIfִм򵥵жϲǡIfThenElseṹļд汾IIfǡImmediate Ifԡ 
 
IIfĸʽ£ 
 
result=IIf(True֣False) 
 
 resultǺķֵһ߼ʽΪʱIIfءTrue֡ΪʱءFalse֡True֡False֡Ǳʽ 
 
ע⣬ IIfе3ʡԣҪTrue֡False֡һ¡ 
 
72֧ƽṹ
 
Select CaseԱʽ 
 
Caseʽ1 
 
 1 
 
[Caseʽ2 
 
[2]] 
 
 
 
[Case Else 
 
[n]] 
 
End Select 
 
 Select CaseͷEnd Select书ǣݡԱʽֵӶѡһִС 
 
73 Forѭƽṹ
 
ForѭҲFor-Nextѭѭһʽ£ 
 
Forѭ=ֵToֵ[Step] 
 
[ѭ] 
 
[Exit For] 
 
Next[ѭ][ѭ] 
 
ForѭָĴִѭ 
 
ForѭִйǣȰѡֵѭż顰ѭֵǷ񳬹ִֵֹͣСѭ塱ѭִNext䣻ִһΡѭ塱Ȼѡѭ+ֵѭظ̡ 
 
ForNextɶԳ֣ܵʹãForNext֮ǰ 
 
ѭɳֵֵͲ 3ȷ㹫ʽΪ 
 
ѭ =Int(ֵ-ֵ)/+1 
 
For-NextѭǶʹãǶײûоơ 
 
ѭֵ˫ 
 
For-Nextеġѭ塱ǿѡȱʡʱFor-NextִСѭ 
 
74ѭƽṹ 
 
While 
 
[] 
 
Wend 
 
ʽУΪһʽѭĹǣġΪ Trueʱִѭеġ顱(ѭ) 
 
WhileѭִйǣΪTrue(0ֵ)ִС顱WendʱƷصWhile䲢ԡвԣȻΪTrueظ̣ΪFalseִС顱ִWend䡣 
 
75 Doѭƽṹ
 
DoѭԲ޶Ĵִѭڵ飬ҿԸѭTrueFalseǷѭ 
 
Doѭĸʽ£ 
 
(1)Do 
 
[] 
 
[Exit Do] 
 
Loop[While | Untilѭ] 
 
(2)Do[While | Untilѭ] 
 
[] 
 
[Exit Do] 
 
Loop 
 
DoѭĹǣָġѭΪTrueֱָġѭΪTrue֮ǰظִһ(ѭ) 
 
Do While | UntilLoopѭжȻʱִѭ壬ִС 
 
DoLoop While | Untilѭ෴Ƿ㣬ִһѭ壬ȻжԾĲκ£ ִһѭ塣 
 
76ѭ 
 
 8   
 
81ĸ 
 
һʽ£ 
 
S(n) 
 
 SΪn±ꡣһԺɸ±(Ԫ)±ָĳԪеλãS(8)Sеĵڰ˸Ԫء 
 
Ķ 
 
Dim ڴģ׼ģУ崰׼ģ飬Ҳڹ 
 
ReDim ڹ 
 
Static ڹ 
 
Public ڱ׼ģУȫ 
 
1һָʽ 
 
һָʽ봫ͳ鶨ʽͬÿһάֻ±Ͻ磬ʹõ±ֵһά飬ʽ£ 
 
Dim(±Ͻ)As 
 
ڶά飬ʽ£ 
 
Dim(һά±Ͻ磬ڶά±Ͻ)As 
 
Option Base n 
 
Option Baseָ±Ĭ½硣 
 
2ڶָʽ 
 
õһָʽ飬±½ֻ 01ʹõڶָʽɸҪָ±½硣ʽ£ 
 
Dim([½To]Ͻ[,[½To]Ͻ]) 
 
(3)ڶʱÿһάԪظǳǱʽ 
 
(5)ͨǰָܵʽ壬һָʽ飬½綼СϽ硣ʱ򣬿Ҫ֪Ͻֵ½ֵͨLBoundUBoundԣʽΪ 
 
LBound([,ά]) 
 
UBound([,ά]) 
 
82̬붯̬ 
 
?ֵųΪ±궨άǾ̬飻 
 
?ñΪ±궨άǶ̬顣 
 
(1)ڴģ㶨Ķֻ̬ͣûָάάReDimи಻ܳ8ά 
 
(2)ReDimֱӶ顣ڱ׼ģûPublicDimͬ飬ReDimɴ60ά 
 
(3)һУԶReDim䶨ͬһ飬ʱ޸Ԫصĸ 
 
2Ԫص 
 
Ԫһͨ Forѭ估InputBox롣 
 
ע⣬ InputBoxԪʱҪԪֵͣӦʽͣ߰ԪתΪӦֵΪInputBoxַ͡ 
 
83 For EachNext 
 
For EachNextForNext䣬߶ִָظһFor EachNextר󡰼ϡ(鲻漰)һʽΪ 
 
For EachԱIn 
 
ѭ 
 
[Exit For] 
 
 
 
Next[Ա] 
 
84ĳʼ
 
ArrayΪԪظֵһݼĳ顣ʽΪ 
 
 =Array(Ԫֵ) 
 
ע⣬ǾֻͣǱ (Variant)͡ 
 
 9   
 
91 Sub   
 
1Sub 
 
ͨ Sub̵Ľṹǰμ¼̵Ľṹơһʽ£ 
 
[Static][Private][Public]Sub[()] 
 
 
 
[Exit Sub] 
 
[] 
 
End Sub 
 
1CallSub 
 
ʽ Call[(ʵʲ)] 
 
Callѳƴ͵һVisual BasicSub̡Callһʱ̱ûвʵʲſʡԣӦӦʵʲѲСʵʲǴ͸Sub̵ı磺 
 
Call Tryout(a,b) 
 
2ѹΪһʹ 
 
(1)ȥؼCall 
 
(2)ȥʵʲš 
 
ͨù¼ 
 
¼Ҳ SuḅһSuḅڴͿؼϡһؼ¼ɿؼʵ(Name)»ߺ¼ɣ¼ɡForm»ߺ¼ɡҲ˵¼̲ûⶨ壬ϵͳָؼ¼̵һʽΪ 
 
[Private | Public]Subؼ_¼() 
 
 
 
End Sub 
 
¼̵һʽΪ 
 
[Private | Public]Sub Form_¼() 
 
 
 
End Sub 
 
ʱģ޶һʽΪ 
 
ģ .() 
 
92 Function   
 
Function̶ĸʽ£ 
 
[Static][Private][Public]Function[()][As] 
 
[] 
 
[=ʽ] 
 
[Exit Function] 
 
[] 
 
End Function 
 
93 
 
β SubFunction̵ĶгֵıʵڵSubFunctionʱ͸SubFunction̵ĳʽ顣Visual BasicУַͨʽͲλôͺָ͡ 
 
1λô 
 
λôǴԴӳʱʹõķʽǰʹõľǰλôͷʽʹַʽʱʵʲĴʽĴƥ䣬Ҳ˵ǵλôһ¡ 
 
 
 
÷ʽͨؼ ByRefʵ֡ 
 
ֵ 
 
ֵֵͨʵʲʵεֵǴĵַ 
 
ֵʽͨؼ ByValʵ֡ڶͨùʱβǰйؼByValòôֵʽͣ(ַ)ʽ͡ 
 
934Ĵ 
 
Ϊ̵Ĳʱʹõǡַʽǡֵʽǰ pиԪصֵһһ͸̵a飬ǰpʼַ̣ʹaҲpͬʼַ 
 
1O ¼ 
 
ѹ¼ϵĳʱ KeyPress¼¼ڴ塢ѡϿťбͼƬı򡢹ļйصĿؼ 
 
ӡ̡ѡȡ KeyPressɶKeyPress¼̡һʽΪ 
 
Private Sub Text1_KeyPress(KeyAscii As Integer) 
 
End Sub 
 
KeyPress¼һʽ 
 
һʽ Index As Integerֻڿؼ飻 
 
ڶʽ KeyAscii As Integerڵؼ 
 
KeyDownKeyUp¼صǡKeyPress¼صǡַASCII롣 
 
KeyCodeKeyDown¼ĲKeyPress˵õASCII벻һ 
 
1KeyCode 
 
ǰʵʵ ASCII롣ԡΪ׼ԡַΪ׼ 
 
2Shift 
 
ת ShiftCtrlAlt3ֱԶʽʾÿ3λ 
 
ShiftΪ001 
 
CtrlΪ010 
 
AltΪ100 
 
1 03 ¼
 
(1)ѹ¼ 
 
Sub Form MouseDown(Button As Integer, Shift As Integer,x As Single,y As Single) 
 
End Sub 
 
(2)ɿ¼ 
 
Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single,y As Single) 
 
End Sub 
 
(3)ƶ¼ 
 
Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single,y As Single) 
 
End Sub 
 
Buttonȡֵֻ3֣001(ʮ1)010(ʮ2)100(ʮ4) 
 
(1)MouscDownMouseUp¼˵ֻİжǷ»ɿĳһܼͬʱ»ɿ. 
 
(2)MouseMove¼˵ͨButtonжϰһͬʱ 
 
 11 ˵ 
 
˵ãһṩ˻ԻĽ棬 
 
ǹӦϵͳ 
 
ֻͣʽ˵ʽ˵ 
 
ʽ˵ŵ㣬 
 
(1)ǿһĿȻѺáֱۣʹ÷㣬ѧϰա 
 
(2)еܡʽ˵УûܷѡҪĲʱתһܣΪûڸ˵Ĺܼ䵼 
 
(3)ռĻռСֻͨռĻ()һУڱҪʱһӲ˵ʹĻ()нϴĿռ䣬ʾ̵̡ȸͼƼϢ 
 
˵ 
 
ʽ˵ÿһϵҼʾһʽ˵ 
 
ʽ˵һС͵Ĳ˵ڴĳطʾԳ¼Ӧ 
 
PopupMenuʾʽ˵ʽΪ 
 
 .PopupMenu˵Flags,X,Y,BoldCommand 
 
СǴ˵ڲ˵༭ж˵ XYǵʽ˵ڴϵʾλá

12¶Ի 
Ի (Dialog Box)һĴ(),Ի봰Ƶġ 
12.1ļԻ
ļԻΪ֣ (0pen)ļԻͱ(Save As)ļԻ 
ļԻûָһļɳʹãñļԻָһļļ浱ǰļ 
ļԻ 
 (0pen)ͱ(Save)Իͬ£ 
(1)DefaultEXT 
öԻĬļͣչ 
(2)DialogTitle 
öԻı⡣ 
(3)FileName 
û򷵻Ҫ򿪻򱣴ļ·ļ 
(4)FileTitle 
ָļԻѡļ (·)FileNameԵǣFileNameָ·硰d:\prog\vbf\test.frmFileTitleָֻļ硰test.frm 
(5)Filter 
ָڶԻʾļ͡øԿöļͣûڶԻġļ͡бѡ FilterֵһԻıַɣÿַùܵ|ڡ|ǰĲֳΪĲһΪͨļչΪ*.txtȣַ֮Ҳùܵʽ£ 
[.]Ի.Filter=1|1 |2 |2 
(6)FilterIndex 
ָĬϵĹֵΪһ FilteröÿһֵһֵΪ1ڶֵΪ2FilterIndexԿָΪĬʾĹ磺 
CommonDialog1.FilterIndex=3 
ѵΪĬʾĹ 
(7)Flags 
ΪļԻѡ񿪹أƶԻۣʽ£ 
 .F1ags[=ֵ] 
СΪͨöԻƣֵһʹ 3ʽųʮʮ 
(8)InitDir 
ָԻʾʼĿ¼û InitDirʾǰĿ¼ 
(9)MaxFileSize 
趨 FileNameԵ󳤶ȣֽΪλȡֵΧΪ12 048ĬΪ256 
(10)CancelError 
ԱΪ True򵱵Cancel(ȡ)ťرһԻʱʾϢΪFalse(Ĭ)ʾϢ 
123Ի
ɫ (Color)Ի 
ɫԻɫ 
ColorԺFlagsԡ 
ɫԻ Flags4ȡֵ 
13 ش뻷Ӧ 
1Load 
ʽ Load 
Loadһװڴ档ִLoad󣬿ôеĿؼԣʱûʾơǴNameԡ 
2Unload 
ʽ Unload 
 LoadĹ෴ڴָĴ塣 
3Show 
ʽ [.]Show[ģʽ] 
Showʾһ塣ʡԡơʾǰ塣 
ShowװʾֹܡҲ˵ִShowʱ岻ڴУShowԶѴװڴ棬Ȼʾ 
4Hide 
ʽ [.]Hide 
HideʹأĻʾڴУˣUnloadǲһġ 
ڶരУҪõؼ MeǳڵĴ塣 
磬ٶһ Form1ͨĴʹôأ 
Form1.HideĴȼ 
Me.Hide 
ע⣬Me.HideForm1ؼ¼еĴ롣
 132شִ뱣
 ,гʱԶʾͨShowܿ 
ָķ :̡ͨ˵еġԡִָи󣬽򿪡ԡԻ򣬵öԻеġͨáѡԡԻ(ͨáѡ) 
Ҷ˵ļͷʾǰдбʱιλڵǰϡҪı䣬򵥻Ϊ֣Ȼ󵥻ȷťɰѡĴΪ塣 
1322രĴȡ 
شıҪһЩΪÿҪΪһļ棬дΪһļ档 
 :һж̵ӦóУʱҪʾ֮ǰһЩгʼҪʱִһضĹ̡ΪSub MainCеMain 
Sub Mainڱ׼ģ鴰н䷽ǣִС̡˵еġģ顱򿪱׼ģ鴰ڣڸôм룺 
Sub Main 
Ȼ󰴻سʾù̵Ŀͷͽ䣬Ȼ󼴿֮롣
14¡ļ 
145 ļ
ļص㣺 
(1)ļļ¼Ƕ¼ֻи¼nͨ(n-1)¼ȡü¼ļ׼¼ԵַˣOpenļʱָ¼ĳȡ 
(2)ÿ¼ΪɸֶΣÿֶεĳȵӦıĳȡ 
(3)()ҪһʽӦֶΡ 
(4)ļ󣬼ȿɶҲд 
146ļϵͳؼ
1. б 
б (Drive ListBox)Ŀ¼б(Directory ListBox)ļб(File ListBox) 
DriveֻóãͨԴáʽΪ 
б .Drive[=]ġָʡԣDriveǵǰѡڵǰϵͳвڣ 
2Ŀ¼б 
Ŀ¼бʾǰϵĿ¼ṹ 
PathĿ¼бļбû򷵻صǰ·ʽΪ 
[.]Ŀ¼б.|ļб.Path[="·"]塱Ŀ¼бڵĴ壬ʡΪǰ塣·ĸʽDOSͬʡԡ=·ʾǰ· 
бĿ¼бָǰ͵ǰĿ¼ļбʾǰĿ¼µļ (ͨPathԸı) 
ļбĬϿؼ File1 
(1)Pattern 
(2)FileName 
(3)ListCount 
ListCountԿϿҲбĿ¼бļбʽΪ 
[.]ؼ.ListCount 
(4)ListIndex 
ʽ [.]ؼ.ListIndex[=ֵ] 
(5)List 
ʽ [.]ؼ.List()[=ַʽ] 
2бĿ¼бļбͬ 
3ִļ 
147ļ
1ɾļ(Kill) 
ʽ Killļ 
øɾָļġļԺ·磺 
kill"c:wd*.bak" 
ɾ cwdĿ¼µıļ 
2ļ(FileCopy) 
ʽ FileCopyԴļĿļ 
FileCopy ԰ԴļĿļļȫһ

